AD-A151  615  SI5AL  OPT IMIZftT IONS CU)  AIR  FORCE  INST  OF  TECH  1/1 

URIGHT-PflTTERSQN  fiFB  OH  J  0  ACRES  1984 
AFIT/CI/NR-85-13T 


UNCLASSIFIED 


F/G  9/2 


NL 


AD-A151  615 


stCuMiTY  Classification  o f  this  pact  fn;,®,!  n*ta  trt »  ,*•: 


REPORT  DOCUMENTATION  PAGE 


1  PE  PONT  NUMB*  R 


AFIT/Ci/NR  85-13T 


|  TITLE  («nJ  ^ubrnlaj 


,rp  "7  kEAFTNSTRUCTioNS 

~  _ 1 _  ►iht-'OKK  COMPl.KTIiJ  FORM 

■  j  T  ACCtS*  jN  “  V-CtF-E  -T'S  CAT  A:  OG  NUMBER 


•  5.  TYPE  O?  REPORT  6  PERIOD  COVERED 


Sisal  Optimizations 


THESIS/D  JWWTWTON 


6.  PERFORMING  ORG.  R  _°ORT  NUMBER 


7  AUTHOR^; 


Jody  Dejonghe  Acres 


a.  CONTRACT  OR  GRANT  NUMBEft(«j 


9  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

AF IT  STUDENT  AT:  Colorado  State  Univ 


10.  PROGRAM  ELEMENT,  PROJECT,  TASK 
AREA  A  WORK  UNIT  NUMBERS 


DN  T  ROLLING  OFFICE  NAME  AND  ADDRESS 

r/NR 

-B  OH  45433 


12.  REPORT  DATE 

1984 

<2.  NUMBER  OF  PAGES 

36 


ONITORING  AGENCY  name  a  ADDRESS(/I  dllltranl  hom  Controlling  Olticm)  IS.  SECURITY  CLASS,  (ol  I  hit  rvportj 

UNCLASS 

Ts«.  DECLASSIFICATION/ DOWNGRADING 
SCHEDULE 

•ISTRIBUTION  STATEMENT  (ol  (hi*  Report) 

ROVED  FOR  PUBLIC  RELEASE;  DISTRIBUTION  UNLIMITED 


JISTRIBUTION  STATEMENT  (ot  the  abstract  entered  In  Block  20,  II  dl//tren(  Irom  Report) 


ie  supplementary  notes 


APPROVED  FOR  PUBLIC  RELEASE:  I AW  APR  190- i 


19.  KEY  WORDS  (Continue  on  reverae  aide  it  neceeeery  and  Identity  by  block  number) 


L^iTz .  WOLAVER  *  ^  ^  r 
Dean  for  Research  and 
Professional  Developmen 
AFIT,  Wriqht-Patterson  AFB  OH 


I  20.  ABSTRACT  (Continue  on  reverae  aide  II  nece-iaory  and  Iden.tiy  by  block  t.vmber ) 


ATTACHED 


electe 

WAR  2  5  1985 


L*0  ■  JAN  "73  1473  COITION  of  1  rtOV  SS  IS  OBSOt  t  T  l 

85  03  11  066 


UNCLAD 


uRiTV  (-L  AS*M  r  iC  AT iO'*  Of  THIS  P  \GE  fU?  t..  Oa»#  Ei.retedi 


vs 


85-13T 


AFIT  RESEARCH  ASSESSMENT 

The  purpose  of  this  questionnaire  is  to  ascertain  the  value  and/or  contribution  of  research 
accomplished  by  students  or  faculty  of  the  Air  Force  Institute  of  Technology  (AU).  It  would  be 
greatly  appreciated  if  you  would  complete  the  following  questionnaire  and  return  it  to: 

AFIT/NR 

Wright-Patterson  AFB  OH  45433 

research  TITLE:  Sisal  Optimizations _ * _ 


AUTHOR:  _ ACRES,  Jody  Dejonghe _ 

RESEARCH  ASSESSMENT  QUESTIONS: 

1.  Did  this  research  contribute  to  a  current  Air  Force  project? 

(  )  a.  YES  (  )  b.  NO 

2.  Do  you  believe  this  research  topic  is  significant  enough  that  it  would  have  been  researched 
(or  contracted)  by  your  organization  or  another  agency  if  AFIT  had  not? 

(  )  a.  YES  (  )  b.  NO 

3.  The  benefits  of  AFIT  research  can  often  be  expressed  by  the  equivalent  value  that  your 
agency  achieved/received  by  virtue  of  AFIT  performing  the  research.  Can  you  estimate  what  this 
research  would  have  cost  if  it  had  been  accomplished  under  contract  or  if  it  had  been  done  in-house 
in  terms  of  manpower  and/or  dollars? 

(  )  a.  MAN-YEARS  _  (  )  b.  $ _ 

4.  Often  it  is  not  possible  to  attach  equivalent  dollar  values  to  research,  although  the 
results  of  the  research  may,  in  fact,  be  important.  Whether  or  not  you  were  able  to  establish  an 
equivalent  value  for  this  research  (3.  above),  what  is  your  estimate  of  its  significance? 

(  )  a.  HIGHLY  (  )  b.  SIGNIFICANT  (  )  c.  SLIGHTLY  (  )  d.  OF  NO 

SIGNIFICANT  SIGNIFICANT  SIGNIFICANCE 

5.  AFIT  welcomes  any  further  comments  you  may  have  on  the  above  questions,  or  any  additional 
details  concerning  the  current  application,  future  potential,  or  other  value  of  this  research. 

Please  use  the  bottom  part  of  this  questionnaire  for  your  statement(s). 


~  v  €~  '  w  *-  -  -- 

hir 

. 

' 

whose 

rj  i  *i  p  is  s  v  si  l  sbl  p 

can  tbeoret i cal  1 y  be  executed  s i mu 1 1 a - 

Cl 

oeousl 

,  .  See  [Mclrfw,  1  °833  f  cr  more  :  -  -for  oat  i  cr-  on  SISAL. 

► 

*  *. 

The  S  T  SAL  cmuler 

produces  an  intermediate  form  ref  =rred 

f  c-  d? 

"  jn  ■> .  IP  1  J5  ?r- 

t  a  tie  w  1  a  n  g  :j  =>  q  *3  s  . 

intermediate  fo-Ti  designed  specifically 

It  describes  a  program  as  a  data  flew 

-I  V 

with  r d e s  r e o r e 3 

entire  operations,  edges  representing 

i 

d  a  t  a 

f=r  -  -: t 

a r  »J  n  ,'pe-r  associated  with  an  ed^e  i  den  t :  -f  /i  n  g  the  charac- 

i  •-  c-  r--f  data  bei  n  p  n  as  serf.  esure  1  an  0  •  a  rr  p- 1  0 

V 

of  *  >- 

e  graphical  rep  resent -at  i  on  of  the  express:  or  ( a  t  b '  +  7- 

i — 

i* 

* 

A.  - - 1  4- 

a  ^  -•  p 

e  IF1  des-cri  pt.  ion  o-f  this  graph.  The  numbers  :n  the  b  j  .as 

r--t  numbers  that  a-e  used  to  identif/  the  values.  See 

re*.  ^  -- 

1  el  i  .  I®e41  *o,- 

a  complete  description  of  IF1. 

my 

■ 

a  b 

T  100  1  7 

i 

6  0 

•  i  2 

* 

N  1  MULTIPLY 

-■  ■ 

Multiply 

i 

E  01  11  “a" 

E  02  12  "t" 

* 

*  1 

t 

i 

N  2  PLUS 

• 

i 

• 

i 

i 

3  E  1  1  2  1 

!  E  0  0  22  "7" 

» 

V 

v 

► 

- 

:  i 

• 

2  :  E  2  1  0  1 

4 

!  C  ' 

1C  ■ 

• 

» 

1 

!  1 

> 

i* 

»* 

r.  * 

* 

1 

V 

• 

r 

pTf^lip^  1 

r/. 

r.*\ 

L  .*  •  A  .  ,  . 

*-  -I  -  ^  - V*.  .  -  -  -  .  1  -  -  - .vA.tul  -  "W-  W.  .v.  ‘ - V* 

Select  -  returns  a  pcmter  to  the  array  element  at  inde;:  J 

CTC'I  _  r  T  1 
w'  *  .'Hl  .  i  t  •_/  j 


iri  - 


arra y < T  ? 


i nteger 


AELEMENT 


F:  v.  r,  1 1  ,t.  s  -  select 
Pa rams : 

NAME  MEANING  SGURCE 

dvptr  ptr  to  dope  vector  to  -from  symbol  table 

start  dereferencing  at 

rsios  element  sice  array  type 

ndim  number  of  levels  in  the  array  type 

array 

bourdarr  ptr  to  subscripts  to  input  edges 

apply  to  array 


lacsment  -  replaces  the  array  element  at  inde;:  J  with  value 
SISA_  -  A[J: VI 


arra  /  (T)  i n t  va lueis) 


AREPLACE 


ar  r  s. v 


-  replace 


Par am s: 


NAME 


newdvptr 

n 


nuiTivai 


MEANING  SC URGE 

ptr  to  dope  vector  of  symbol  table 

input  array 

new  dope  vector  output  par  am 

boo*  ean  i  n  u  *  u.  a  t  i  r.  if  c*.f  t  a  y  t  y  pe 

element  to  replace  is  an 
arr  ay 

number  of  elements  to  input  edges 

rep] ace 


mm-'' 


*  t  - 1  *  *  -  ■  •  •  *  •  *  «  •  *,  *  * 


.  -  .  •  w  *  •  *  -  •  -  -  -  -  «  *  L  \  ^  » 


f  r  a  j  •  w  ODE  r.  1  r  i  U  OT  1  i  *  S 

t  h  I  0  V  3.  X  _»  e  m 

h •— r  r  un  ti  a  ms  r*  ou  1 1  ne  s  3i  i  ow  f  or 
■—  i.  ;Ts C ; ;  S  i  O  r  i  3. 1  a  r  r  c*  y  j  th£  I  H  1 
;  on  I  /  one  l  n d e: v  at  a  t  i  iiicj . 


*  O'  i  c’.i  i  t  i  eflioval  ctr i d  ommon 

er  f  or  med  ,  howe  .  or  ,  i  t  means 

■“time  t  out l me  will  never  be 
•.all  t u  the  runtime  r  out  i  fit 
a r .  c*  it  are  p  r  o  b  a  b  1  y  rot 

no  t  h  a  t  wou I  d  LOinb  me  the 

dll  optimizations  have  been 

-th  concatenates  as  they  are 
>  t  wo  ar  f-  a  >  s  at  one  1 1  me  b  y 
an  d  t  h  e  r  an t i me  r  on tine  will 
fi a t fed  at  c n c e .  In  this  case , 

calls  to  the  r un 1 1 me  rout* n e 
s  f  f  l  c  i  one  /  >  i  h  i  s  hi ap pens 

1  array  v^ilx  be  allocated  to 
e.  One  cal  1  Lj  the  runtime 
ate  or.e  logical  array-  An 
gh  the  I -  1  and  combine  any 
Id  increase  the  efficiency  of 

a  a  hit?  u.  a  1  x  eo  A 1  oEinp  t  y  w  i  *»  i  c  h 
re  a  *  s  c  n  ;  t?  i  oiTisn  to  in  the 


Th  *  nan  stra‘.eg>  1  =  to  start  with  a  concatenate  node  -f  r  om 
the  I  FT  graph  and  then  by  f  cl  lowing  its  inputs  recursively' 
biCf  .vc-ds  through  the  graph  tc  deter  .nine  if  any  of  the  input  a  to 
this  node  arc  al  so  c or. catenates.  If  so,  the  input  edges  of  the 
higher  concatenate  are  linked  into  the  I  ewer  concatenate  node 
instead.  Before  the  edges  are  linked  tc  the  lower  node, 
however ,  its  inputs  are  also  checked  so  that  multiple  levels  of 
•:  one  a  ter.  a*,  es  •_  an  ultimately  be  combined  together. 

The  main  routine  is  called  "combi necats"  and  expects  as 
input  c  pointer-  to  a  concatenate  node.  It  first  initializes  a 
lit!  tid  list  which  will  be  used  tc  hold  the  input  edges  to  the 
final  combined  concatenate  node.  It  then  calls  a  routine 
"f  ol  1  owedges "  which  will  cycle  bad  through  all  the  input  edges 
to  the  node  and  place  the  inputs  to  all  nodes  that  can  be 
combined  in  the  linked  list.  After  it  returns  from  this  routine 
it  sets  the  backptr  in  the  original  node  to  point  to  this  new 
1  i  st  of  input  edges  and  sets  the  ne:.t  pointer  of  the  last  edge 
to  NULL. 

Rodino  ”  f  ol  1  owed  yes "  cycles  through  each  c-f  the  input 
-'lye  *  •  node.  For  each  edge  i  t  looks  at  the  port  that 

p-  '  -i  -  i  *  h  i  .slue  and  checks  if  i  her  e  i  s  more  than  one  use  of 
1  t  f  i  t  decs  not  combine  the  nodes  since  this 

i  1  '  '  id  v  1  ;  s  needed  semt  wher  €•  else.  If  the  value  i  z 

■  1  -  or'  _c  1  1  .  •  :  had  t  r  t  source  node.  If  it  is  a 


vf.  :.e  . 

‘  1  e  1  .  t  - 


*-  L. 

e  n  c  it  r  c  e  n  o  d  o . 

If  it  is  a 

o  c 

o  iL  L>  i  r.  • .  ■/ 

and  it 

calls  itself 

♦hi 

r* 

Once 

■a.,  input  edge 

t  L 

e  comb: r  cd  t  *"  e 

input  edge  is 

i'p\id  £dg--.  for  .  j, mb  l  ried  node. 


■  p'j  T  L  D 


rpnrt  11 


•-Edge? - >  "Edge?  "Edge? 


ACATENATE 


ACATENATE 


CF’ort  11 


T  For t  1 1 


CEdge?  "Edge? - ■CEdge?  "Edge? - 


ACATENATE 


AF' ' ?  L  F 


FIGURE  4a 


AB'JILD 


ACATENATE 


CPert  11 


C  Por- 1  11 


C  For  t  11 


fCrinp} 


rFrf  qp1  • 

- '  -  CEdge' 


:  CEdge? - 

'  CEdge?  ! 


ACATENATE 


FT  A!  IRE  -it 


•  ■  •  o  •  •  h  .-Hn=  l  ~.r  ,-,nrte»  «=-.  n  ,  i  r-  ^  1  -.  -j  .  <• 

i---  -  —  H  -  1  J  '  -  *■  *  - J 

f  -  "  .  •’■*•  <r.  To.-  -  -He  5  ‘  ,  f.O 

=  ■•  d  ‘t'e  oe>  t  psir t  er  ■*  '  t  h ••  1  ost  edg r  art 
!  rtrj  q  ?  r  *"|  •".  hivn  -  f  1  ni..rp  4)-.. 


to  routine  selec*5  i  -=  .-or.  ei  mi  1  ?.r  t.r  *•  h  a.  t 

-  "  ?riC3t  Pr  rfbov*?.  The  ^ r  1  t  r  '.  n  n  \  <j 

>-anr  j  n<j  a*  5pv?'  =il  dimensions  of  a  multi  - 
into  one  runt’  itif  -  =  l  1  .  The  code  -for  this 

•  ~  .3  ppPnd  ’  •  ’T'  n  r?  0  c; k*  i  H  ci  ^  *“»  ir>  ^  9 

*  k-  .3  t;  0  q  ,y  j  +-  7-.  cf  arf  ‘„v  *  f  f  ’  •—  £>  1  0^+_  H  D  d  C  -f  l~  q  m 

+  *-•  :~*r-  f-  y  -f  -  ]  1  n  w  i  r>  q  i  f  =.  i  rv  p  n.t  J  reC  Ll  r  3  i  V  O  2  y 

the  graph  to  dot  ?r  tii  ne  i  *  an/  of  its  inputs 
j  jr  tKev  are  and  tKore  is  no  other  use  of  the 
e  i  ode;-'  for  this  dimension  of  the  array  is 
of  irdsuos  to  be  used  in  derefernring  an 


1 1  <-■  e>  j  3  c  a. 1  led  "combi  nee  el  "  and  eu  pro  t  r  as 
r-nloot  or  "ael  ement"  node.  It  i~itisli.:os 
h.  will  h old  all  the,  -  n do  eo  ;  cr  the  1 ;  -  -<  ] 

‘  *-  cir-  -;]]c  rnit’np  "  4-  O 1  1  Owb  5C  !  "  t  r  1  .  :  !  n 

•  it  edges  f  nr  this  node  -md  to  pi  jee  ?!  1  t  h  --. 

...  tKi  pr-.H  i  r-,  Ihp  i  1  '-l  ed  list.  At  t  *  •  ;  t 

eu  t  i  no  it  f  j  -  f  ■-  mo  the  noi  n4-  r”- 1  to  1 1?  "pjd  ~ 

•»r  e  the  ,  ■  *  h  ■-■  J-..  o  .-fnrrfprp'-,r(,J  f  ■  '  r ’  (•_»  y 

Th  e  ar  ■*  a  *■  .  h.-  Hpref  prpr'p'j  ’  ~  y  s-  f  1 

node  -  -  ‘■t.e  o, -  apt i  ‘  h  -•  t  ro'-ld  bn  .  r  nh i *  r  J. 


<p  .-3  fP  -  P  r  vf.  r-  H  r » -  m  V  ) 

cr  f  3  fr,  \  T  > 

i 

^  1  ?.•  e1 

i 

•  AADDH 

« 

t 

i 

i 

i 

I 

••.  / 

t  ^  3  :T  (  T  ' 

TJ  P  pf  -  r  cp  f  ,  ,  u-  i-.  4-  H  ;=3 

-f  i  r  ’  v*  i.  »  h  r.  f 

•  rj  n-.  -4  ■»  +-  -r  f  ^ 

=  V  -  p  9  ;T.  l'  T  -1 

1 

i 

i 

•  ^pi  p^frrvj-r 

i 

< 

Runt i me 


Select  all  but  -first  element  -  returns  a  stream  identical  to  the 
input  stream  except  with  the  -first  element  removed 
SISAL  —  st.ream_rest  (G) 
in  - 

stream (T) 

I 

i 

_ V _ 

I  I 

I  I 

:  AREML  : 

I  » 

I  I 

V 

stream (T) 


Runtime  — 


Test  -for  empty  -  returns  true  if  there  are  no  elements  in  the 
stream  and  false  otherwise 

SISAL  ~  stream_empty (G) 

IF1  - 

stream (T ) 


AISEMPTY 


v 

bool ean 


Runt i me 


Mumfcer  of  elements  --  returns  the  number  of  elements  in  b 
SISAL  -  stream  sisre(G) 


ASI  ZE 


v 

i nteger 

i 

Runtime  — 


Concatenate  —  returns  a  stream  of  all  elements  of  G  -followed  by 
all  elements,  of  H 

SISAL  -  G  ;  :  H 


IF1  - 


I 

t 


streamer)  stream (T) 


ACATENATE 


stream  (T) 


Runtime  - 

5.2  STREAM  ANALYSIS  CONCLUSIONS 

Not  much  can  be  said  until  the  runtime  routines  are 
ana  I yced .  It  seems  though  that  the  same  sort  of  things  done  for 
arrays  may  need  to  be  done  with  streams.  In  particular, 
concatenates  could  possibly  be  combined  if  the  runtime  routine 
can  handle  mare  that  two  at  a  time.  Also  some  Lind  of  live 
a- el  -  si  s  may  be  useful  in  determining  when  s.  stream  is  no  longer 


need  e  d . 


h rough  the  graph  jt  a  *  .oti  _-*i  1-Ji  ing  t  or  .n 
3.  When  ore--  .  f  u-.r.d  i c<  1 1  =  x  tsei  •.  tu  m; 
of  th:  3  graph .  It  then  cherks  whether  the  no 

rt  s_d  c  3.1 1  I.T.,.-1'  3  .  eCompoundNode  to  remove  the  1  oop 
After  the  er.t:  r~  g-  aph  tjs  teen  pr  Owe-isad  it  cal  1 
to  remove  c  ommer  subs;. pr  esii  cns. 

cr  to  the  first  u.cde  in  graph 

op  T  -r.prc  ■  er 
pr  o  veGr  apt. 
p  •  o/oCsmp  ovr.JNode 
r.r  h^°r 


ti  nn  deter  nines  whether  a  node  oar.  be 
i~  d  "  f  i  s)  S' 1  inputs  a i  e  loop  const, 
rd  with  ,r,._.r  i  p  ul  at  i  ng  multiple  .aloes. 


moved.  A 
•  its  or  or  it 


e  to  te  checked 
rounding  g  r  a  p  h  r:  ode 

to  the  surroundi ug  graph 
ode  c  a n  t*  e  mo  v e d 


r  the  loop  optimizations.  It 
p.  og.-'am  call!  rig  other  routines 


f-  r  r,  -  x 


the  pr eg ram 
ri  graph 


r am  one  location  to  another  Dy 
to  th.e  node  to  reflect  the 
!le.\t.  Add  Inputr  ur  t  o  is  ..u  .  cJ 
e  loop  to  hois  toe  uu  p  a  1 1  ■  of 
z  are  wired  into  the  ports. 

mo  v  od 

o* .mo  —  d  rode  tli.it  tfic  node  to 


a  r 


.ODE  TO  COMBINE  CONCATENATE  NODE 


find  1  a  '.l  'if.  er:  rede  's^.T.d-f  .  h  " 

odget.pc  *el  i  rt  .tar  t ,  *el  i  stend; 
/♦  feed  to  \  eep  a  li.nLed  list  at  i. 
,'t  to, -.Dined  node  t  ' 

••t  t  IFn;df  tmastemode; 


?  d  g  e  s  tor  the  f  . 


■  1 1 1  *  t  *  t  r*  *  *  1 1 1  *  *  *  *  *****  t  *****  t  *************.*  ****#*;![***#*###  / 

t  COME1 1  NEGATE  */ 

t  ^  t  x  z  r  cot  ire  w  i  i  I  cciTibi  ne  a  series  or  c  a  rj  c  a  1 0  r*  a  t  s  r,ouc^-i  , 

t  t  ,  Ed  .owing  the  input  edges  ot  a  concatenate  node  and  */ 

'  *  .-r.  f  ■  :  .-  g  the  input  edges  of  all  nodes  that  can  be  */ 

t  :  ;  • :  .  ...  '  . t  •:  r-s  r  ode.  */ 


ot  .  .-.  Or:;:  tredeptr; 


.  t  Faints  to  node  to  i>  t  ci  r  t  -If 
tr  _ wftTib  1  i  ,  i  ng  at  fr  / 


e.'geu^  1, 
toll  ..edge: 


-adept’'  .  '  ♦  ReituriTib  er  this  starting  node  %, 

1 1 otend  -  NULL;  '% Initialise  list  ot  edges  */ 

Used  to  renumber  edges  t, 
deptr ;  ;  1  Cw>l  1  f  c  1  i  o  w  e  d  g  e  to  do  t !  1  e  %/ 

/%  actual  combining  %■  t 

tr  "  elisteta  t;  ,  't  Mate  node  point  to  this  */ 
/*  new  list  ot  edges  * 
edge  -  NULL;  ci.:  last  edge  on  list  */ 


't  FCLwCWCDCEC  %/ 

!  t  T h  i  s  •  -  -.  1  1  c  ,  ;  1  f  e  o  u  r  s  i  y  e  1 1  bad  wards  ’1 , ,  r  o  u  g  h  t  ■ 

j  ■ U  deter  to  *,,'.5  if  nodes  car.  L=  combined.  When  it  */ 

'*  e  u  r "  o-  *r  ■  o  1  •  •:.  t  '  do  that  oar  be  c  omb  .rod  or.  a  gi  on  t, 

'*  p  r  f  h  1  t  r  -  1 0  its  input  edge:  :i  a  list  of  edges  tor  Lne  */ 

' *  c  1  . a  1  0  _ m b c  -..id  o d o  .  * 

- 1  ft  t  1ft  tot  t  +  *  t-fttttt+f********  *****************  *************/ 


••  -  ■*■  -*  -  1  td '  •  -  -  -  h  - 

struct  If r  ode  tnsdep  t ' ;  .  i  points  to  the  node  wh 

*  are  to  be  followed  * , 

r 

it  -  act  edgst  ,pe  *  s:: c  edge  ,  tdestedge; 
r- 1  .  f  p  --  f  t  ,  pc  *  soar  cep  s  r 1 ; 


tr  bao'.ptr;  get  f  i.'at  ...pct  edge  *.• 

11  its  incut  edoc  -  chsoinu  if  the  */ 


APPENDIX 


:gde  to  combine  select  nodes 


:n*rlvde  11  5  i  s a  I  Tf,  sncode/ s>  mdef  -  h  " 
tract  edgetypa  *slist start,  talistsr.d; 

/  *  Used  to  Leap  a  1  i  nkad  list  of  input  edgc_-  f  or  the  *, 
*  o  o mb  i  n  nd  nods  %/ 
t',' c t  I r'n o de  * .T.a s t srn od e ; 

••  *  c- -3 j  n ►  to  the  combined  node  */ 
t-u-t  F-ode  *  top  node; 

/♦Points  to  the  highest  nude  >  *  the  graph  *.' 

■  *  -  -  be  combined  »./ 


***************************************  *  *  *  ************  *  *  *  *  *  *  / 

*  CCMPINESEL  */ 

*  T''  t  s  •"  T.-tir.e  «i  1  I  combine  a  series  of  select  or  */ 

t  "  ael  emm  "  nodes  L.  following  the  array  input  to  the  */ 
t  r  •  de  and  I  in'-  my  the  l  nde  os  cf  all  nodes  that  can  be  */ 

*  -  orb :  -  ■  '  i  r;*  ...  cr.e  node.  */ 

*  +  1  *  *  M  *  **********  ***************************  .*  *  :*  *  *  :*  ********  / 


mb  :  ■  -asm:  •Todeptr) 

;  t  ’Roods  tnodepcr; 


mast  =►•  node  -  nodeptr;  /*  Remember  this  starting  node  */ 

t  c-prude  '  nodept1'  ;  /%  initialise  the  highest  node  */ 

*  to  be  t hi e  current  node  * / 

s’,  i  st  s4-*"  t  -  si :  stand  -  NULL;  /f Initial ise  list  cf  indexes*/ 

edge---.  --  2;  /*  Used  to  renumber  edges  */ 

-  o  I  1  owt  i-c  !  CiOdeptr'-  /'*  Call  followback  to  do  the  */ 

/*  acto.al  combi ni  rtg  */ 

a  n  1  p  ^  =.  topncde- backptr ;  /*  make  node  point  to*/ 

/*  input  array  */ 

nodcpt;-  ' uckptr-  "  r  o:  badge  -  eliststart;  /*!  in!,  in  list  of*/ 

/♦  indai.es  *. 

distend-  ne  hedge  =  NULL;  /*  f i-.  last  edge  on  list  */ 

/*  now  f i  up  first  input  edge  */ 

■  -  u  -  -  y  1 1  —  t — ~  >  Oid  c  -  .  b  a  i  k  p  t  r  —  .  'p  t  r  .  up  —  u  s  a.  g  e ; 
while  •.  t-dgep t r  .  p tr  .  dn  '  -  topnode) 
edgeptr  -  edgeptr-ineotedge; 


.'*  Points  to  node  to  star  c  *,' 
t  combining  at  *  / 


-  I  . 

~  -  3 


L 


*  *  *  *  *  M  »  ♦  * ♦ f  *  *  *  ft  f  f ♦ *  * i *  *  *  *>  *  t  *  *  *  1 1 *  *  *  **************** 5  * * 
'*  FPLLCWBAu!-.  * 

•'*  i  -  "ouline  will  cycle  recursive!/  bacl.^ar  Ji  through  * 

/*  a  graph  determining  if  nodes  can  be  combined.  When  it  * 
/*  reaches  the  last  node  that  car.  be  combined  on  a  g.  * 

/*  path  it  puts  its  index  on  a  list  of  indexes  for  the  * 

/*  final  combined  node.  * 

/***********  t  ***************  *  *********  *  *  ******  *  ********** *  *  * 

fol lowbact  'nodeptr) 

struct  TFr.ode  fncdeptr;  •'*  points  to  the  node  whose  edges  * 

/t  are  to  be-  followed  +/ 

struct  -c-dget/pe  fsourcedge,  tdestedge; 

:.-.d  .  •  •-•  t  :  •  : fxert: 


1  ’  •  f  4  he  irpd  ’s 


■ode  car  be  c  o.i  1  i  red 


r  ?  *» '"f  ra •  —  *"  p;-  n  t  r~.  f  —  ‘‘-n f*  f-  !  in  • 

! f  - -  ■  m  -  '  h  -  -  --  r-  > 

1  ve  is  not  reeded  elsewhere  and  the 
••si  :nnn4  it  can  be  combined  */ 

•r  t  -  : .  s  age  -  >n e  t  edg s  “  NULL  >  °<Z. 

cepe-4-  "scarce-  '  typer,  ode  arra>olcmc;.t )  ) 


t t  .  :u;d 


r  i  ep.  si •  t  -  -sour  c e ; 


r  '  i  - 


■'  top,-.  0(1  :■ >  ; 


edg.-  f  •odeptr-  "bac'-  pt-~  -  tpex  tedge; 
it  the  inde.  or  t!.e  I  in  led  list  %/' 


tel  1st  it  .vt  ---  NULL' 

••  1  i  t  r  t ar  t  -  ~ ou r c.edge; 


tli  atsr  L  -e  hedge  -  s our c edge; 

•  1  i  •  t  nr,-:  =  T.-Pd-Pj 

’  he  •:  or  respond  i  r  g  "  forward  edge"  must 
point  to  the  final  combined  node  t f 


-stodge 


iourced: 


r.up-  usage; 

t-  rr-:d=c* 


-  dos*  c  ige- > nex ter  ge; 
■■id’  =  master  node: 


END 
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